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Input a Sequence of Integers (DOI or SADOl) 
Closed with one program parameter 
18 

Exaet 

Input time (k ms. per digit). This routine has an inner loop 
of 66jy sec, which makes it twice as fastj overall as inte r- 
input routines with a multiplication in the inner loop . 
This routine should be used in problems requiring only integer 
input. If fractions also are required, use N 12. 
To read a sequence of integers into location n, n+1, •«• 
enter with Q: 

50 n 

50 q 
Each integer is punched with a sign (+ or *) followed by up 
to 12 decimal digits . Zero may be punched as + alone * A 
sequence is terminated by one of N^F^L. When one of these 
characters is encountered, control is transferred to the 
right hand side of q+1, with A = 0, 2~^"j 2.2^, 3.2""*% 
according as the termination was NjJyFjL. The left hand 
address of 13L relative to the subroutine at this tifiys is 
n+k, if k words have been read in to locations 
n, n+1, . * » s n+k*l « 
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read sign of first integer of sequence 
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LO 16L 
42 12L 
LO 17L 
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£et 12' as or 1 for + or 9 
if instead of sign an N, J s F, or L, 
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Jsnter loop with A = -^1 (son, = 0) 
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a. = d. - 10 + 10(l+n^_-j_\ 
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00 IF 
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J*l + 2~ 59 n. 
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[-1 + 2~ 59 (d i -10) 

ioop if d. < 10 (digit j 1 not sign) 
Jstore sign of the next number 
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negatively in .1 
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[Choose or 1 depending on previous sign 
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Store in sequence and increase 
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the address of the store instruction 
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Jby one 
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"-1 + (s-10) . 2~ 59 
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loop 
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